home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / pgrdll / pagerdll.bas < prev    next >
Encoding:
BASIC Source File  |  1999-06-26  |  1.7 KB  |  40 lines
  1. Attribute VB_Name = "pagerdll"
  2.  
  3.  
  4. Public Const COM_ERROR   =     (-101)
  5. Public Const MEMORY_ERROR =    (-102)
  6. Public Const COM_OPEN     =    (-103)
  7. Public Const COM_CLOSE    =    (-104)
  8. Public Const INVALID_COMPORT = (-105)
  9. Public Const INVALID_PHONENO = (-106)
  10. Public Const STRING_TOOLONG  = (-107)
  11. Public Const STRLEN_ERR    =   (-108) 
  12. Public Const BAUDRATE_ERR  =   (-109)
  13. Public Const PROTOCOLTYPE_ERR = (-110)
  14. Public Const MSG_ERR        =  (-111)
  15. Public Const BLOCKSIZE_ERR  =  (-112)
  16. Public Const FILENAME_ERR   =  (-113)
  17. Public Const PARAMREQUIRED_ERR = (-114)
  18.  
  19.  
  20.  
  21. 'Functions
  22. Declare Function GetDllVersion Lib "pagerdll.dll" () As Single
  23. Declare Function WriteToLogFile Lib "pagerdll.dll" (ByVal EnableLogging As Byte) As Integer
  24.  
  25. Declare Function SendNumericPage Lib "pagerdll.dll" (ByVal ComPort As Integer, ByVal PagerNo As String,
  26. ByVal PinNo As String, ByVal message As String  , ByVal PDelay As Integer,  ByVal PulseDial As Byte) As Integer
  27.  
  28. Declare Function SendAlphaPage Lib "pagerdll.dll" (ByVal ComPort As Integer, ByVal PagerNumber As String,
  29. ByVal PagerAccessNumber As String, ByVal message As String  , ByVal PulseDial As Byte) As Integer
  30.  
  31. Declare Function SendAlphaPageAdvanced Lib "pagerdll.dll" (ByVal ComPort As Integer, ByVal baudRate As Integer, ByVal PagerNumber As String,
  32. ByVal PagerAccessNumber As String, ByVal TypeOfProtocol As Byte, ByVal fileName As String  ,ByVal message As String  ,
  33. ByVal PulseDial As Byte) As Integer
  34.  
  35.  
  36. Declare Function SendAlphaPageByEmail Lib "pagerdll.dll" (ByVal hostName As String, ByVal senderAddr As String,
  37. ByVal RecipientAddr As String, ByVal MsgID As String, ByVal Subject As String, ByVal message As String,
  38. ByVal fileName As String, ByVal blockSize As Integer) As Integer
  39.  
  40.